home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
WINWORDS
/
SPELL10.ZIP
/
SPELLER.FO_
/
SPELLER.FO
Wrap
Text File
|
1993-12-04
|
3KB
|
121 lines
VERSION 2.00
Begin Form FrmDoc
Caption = "Speller"
ClientHeight = 2484
ClientLeft = 360
ClientTop = 1944
ClientWidth = 5508
Height = 3228
Icon = SPELLER.FRX:0000
Left = 312
LinkTopic = "Form1"
ScaleHeight = 2484
ScaleWidth = 5508
Top = 1248
Width = 5604
Begin TextBox Text1
Height = 2388
HideSelection = 0 'False
Left = 36
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 0
Top = 36
Width = 5340
End
Begin Menu MnuFile
Caption = "&File"
Begin Menu MnuOpen
Caption = "&Open"
End
Begin Menu MnuCheck
Caption = "&Check"
End
Begin Menu MnuNext
Caption = "&Next Page"
End
Begin Menu MnuSave
Caption = "&Save"
End
Begin Menu ctrl0
Caption = "-"
End
Begin Menu MnuExit
Caption = "E&xit"
End
End
Begin Menu MnuHelp
Caption = "&Help"
Begin Menu MnuAbout
Caption = "&About"
End
Begin Menu MnuHHelp
Caption = "&HelpFile"
End
End
End
Option Explicit
Sub Form_Load ()
Width = screen.Width * .8
Height = screen.Height * .8
End Sub
Sub Form_Resize ()
Text1.Width = ScaleWidth
Text1.Height = Scaleheight
End Sub
Sub MnuAbout_Click ()
FrmAbout.Show
End Sub
Sub MnuCheck_Click ()
On Error Resume Next
FrmChk.Show
End Sub
Sub MnuExit_Click ()
End
End Sub
Sub MnuHHelp_Click ()
FrmAbout!CmnDialog.HelpFile = App.HelpFile
FrmAbout!CmnDialog.HelpContext = 200
FrmAbout!CmnDialog.HelpCommand = HELP_CONTEXT
FrmAbout!CmnDialog.Action = 6
End Sub
Sub MnuNext_Click ()
MsgBox "Not currently implemented"
End Sub
Sub MnuOpen_Click ()
Dim i As Integer
i = GetFileName(1, DataFile)
If i > 0 Then
spage = 1
ReadFile (DataFile)
End If
End Sub
Sub MnuSave_Click ()
Dim fn As Integer
If spage < 20000 Then
fn = FreeFile
Open DataFile For Output As #fn
Print #fn, FrmDoc!Text1
Close
Else
MsgBox "Saving a file larger than 1 page is not implemented"
End If
End Sub
Sub Text1_Click ()
LastCk = Text1.SelStart
End Sub